function h20am = maxconc(constaples,ubumod,ubmod,scconc)

% constaples = 500;
% ubumod = 10;
% ubmod = 30;
gvol = 100;
scam = 10;
buffam = 5;
%scconc = 10;
mmumodam = ((scconc*ubumod)*gvol)/((constaples*1000)/160);
bioam = ((scconc*ubmod)*gvol)/((constaples*1000)/4);
ppaintam = ((scconc*ubmod)*gvol)/((constaples*1000)/40);

h20am = gvol - scam - buffam - mmumodam - bioam - ppaintam;
